<%MenuBar%>
<%
End Function
%>
<%
Function GetConn()
Dim sConnect
Dim sDB
Err.Clear
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("observations/vpe.mdb")
sconnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
conn.Mode = 3
conn.Open sConnect
Set GetConn = conn
Set conn = Nothing
If Err.number <> 0 Then%>
The CFPACS Database is unavailable at this time.
Please
try again later.
<%
Footer
Response.End
End If
End Function
Function GetMemConn()
Dim sConnect
Dim sDB
Err.Clear
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("membership/CFPACSRoster.mdb")
sconnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
conn.Mode = 3
conn.Open sConnect
Set GetMemConn = conn
Set conn = Nothing
If Err.number <> 0 Then%>
The CFPACS Membership Database is unavailable at this time.
Please
try again later.
<%
Footer
Response.End
End If
End Function
%>
<%
Dim sGenus
sGenus = Request("Genus") & ""
Header "CFPACS - Palm Observations for " & sGenus
%>
<%
'Make the table of palms
Dim sSQL, sFullName
Dim rs, conn, nCount, nHalf,i, sCommon
Set oConn = GetConn
Set rs = Server.CreateObject("ADODB.Recordset")
sSQL = "SELECT PalmID, Genus, Species, TotalObservations "
sSQL = sSQL & " FROM PalmInfoPlusObservations "
sSQL = sSQL & " WHERE Genus = '" & sGenus & "' "
sSQL = sSQL & " ORDER BY 2,3"
Set rs = oConn.Execute(sSQL)
If Not rs.EOF Then
Do While Not rs.EOF
sFullName = rs("Genus") & " " & rs("Species")
sPalmID = rs("PalmID")%>
